home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2004 September / maximum-cd-2004-09.iso / Software / Apps / CorelDRAWGraphicsSuite12.exe / CorelDRAW Graphics Suite 12.msi / Binary.NewBinary20 < prev    next >
Encoding:
Text File  |  2004-01-07  |  508 b   |  18 lines
  1.  
  2.     ' Get the length of INSTALLDIR
  3.     Dim nInstallLength:nInstallLength = Len(Session.Property("INSTALLDIR"))
  4.     
  5.     ' Get the MaxPath, set in Property Manager
  6.     Dim nMaxLength:nMaxLength = CInt(Session.Property("MaxPathInstall"))
  7.     
  8.     ' Set property [InstallPathTooLong] if INSTALLDIR length is too long
  9.     Session.Property("InstallPathTooLong") = "0"
  10.  
  11.     If (nInstallLength > nMaxLength) Then
  12.         Session.Property("InstallPathTooLong") = "1"
  13.     Else
  14.         Session.Property("InstallPathTooLong") = "0"
  15.     End If
  16.     
  17.  
  18.